home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Res Utils Examples / Set Res Info.as < prev   
Encoding:
Text File  |  1996-12-02  |  347 b   |  15 lines  |  [TEXT/ToyS]
  1. on run
  2.     set f to choose file of type "DiDi"
  3.     set rf to res open f with write permission
  4.     try
  5.         set inf to res get info rf type "reco" id 1000
  6.         set res name of inf to "Testing"
  7.         set res attributes of inf to 16 + 32
  8.         res set info rf type "reco" id 1000 to inf
  9.     on error number n
  10.         res close rf
  11.         error number n
  12.     end try
  13.     res close rf
  14.     inf
  15. end run